
注冊
/
登錄在編寫子程序的時候遇到了點問題…想用vsprinc來提取最大主應力的…但是得到的結果很怪 dimension s(nblock, ndir+nshr), eigVal(nblock, 3) call vsprinc(nblock, s, eigVal, ndir, nshr) do k =1, nblock stateNew(k,2)=eigVal(k,1) 剛開始接觸子程序,
character*3 cData(maxblk*nrData) dimension rData(maxblk*nrData), jData(maxblk*nrData) real*8 s(NBLOCK,NDIR+NSHR),SIG1(NBLOCK) real*8 eigVal(NBLOCK,3) real*8 Xdamg(NBLOCK

#include <stdio.h>#include <omi_for_c.h>extern "C" void vumat(long* nblock, long* ndir, long* nshr, long* nstatev, long* nfieldv, long* nprops, long* lanneal,double *stepTime, double *totalTime
TOP